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; Find numeric day of week 


; Detailed Current Edit History 
ORATIONS 
DAY_OF _WEEK = 


15-SEP-1984 23:55:35 VAX/VMS Macro V04-00 


Page 
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; Find numeric day of week 15-SEP-1984 $333 3:73 mines Macro V04-00 Page 
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6-SEP=1984 CIBRTL. SREILIODAYUK..MAR: 1 
-TITLE LIBSDAY_OF WEEK ind num day of week 
“Toene TdBS°bd2%"-  epresceptoos 74” OF 
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Re A ieWte AE CEAVEBS CORPORATION, MAYNARD. MASSACHUSETTS. 


FTWARE IS penance UNDER A LICENSE AND MAY BE USED AND cores 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eaePOhet ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; LARAARASAAALSASAAAALAALALEESAAEEE SESE EERE SEES EEE SARE REE ESE SESE CECA SEES 
5 FACILITY: Language-independent support Library 
" ABSTRACT: 


; ; VERSION: 1 
; : HISTORY: 
; AUTHOR: 
Herb Jacobs November 1981 
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~SBTTL HISTORY 
EDIT HISTORY: 


1-001 = Add in EDIT field at be 
1-002 = Make LIBS_INVARG an EXT 


cadttePtattt'e cate wistory VECSERSTSEE HERES 


inning of module. 
RNAL symbol 


ereyes Macro V04-00 
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3; Detailed Current Edit History 


LEB 15-Dec-1983 
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v04-00 Page ; Ll 
SLB DAYWK.MAR; 1 (3) 


§ ~SBTTL DECLARATIONS 
4; 
‘ ; INCLUDE FILES: 
§ EXTERNAL SYMBOLS: 
ef 
86 -EXTRN LIB$_INVARG 3 error code 
64 ; 
65 ; MACROS: 
00 96 ; 
00 6 
000 +3 3 
000 8 3; PSECT DECLARATIONS: 
000 
00000000 ie: -PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 7 
000 74 ; 
000 75 ; EQUATED SYMBOLS: 
000 76 ; 
0000 77 
00000002 4 oe offset = 7-5 ; make monday 1, tuesday 2, etc. 
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day of week "§cSEB-1986 #3:55:35 YAN/VMS Macro, yO4—00 di r: 
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3; FUNCTIONAL DESCRIPTION: 

This routine returns the numeric day of the week for an input time 
value. If the input value is omitted, the current dex of the week 
foday, is returned. Monday is considered day 1, and Sunday day 


OOOoOOoOoooSo 


CALLING SEQUENCE: 

ret_status = LIBSDAY_OF _WEEK ( time_64_bit_Q, output_day_L) 
INPUT PARAMETERS: 

time_64_bit_Q - Address of a quadword representing time or 0 
IMPLICIT INPUTS: 

If time_64_bit_Q is 0, then the current system time is used. 
OUTPUT PARAMETERS: 

output_day_l = Address of a longword to receive the day 
IMPLICIT OUTPUTS: 

NONE 
COMPLETION CODES: 

SS$_NORMAL = success 
SIDE EFFECTS: 

NONE 
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sentry - 
LibSday_of week, “M<> 
50 soeogeee" mov l 6) 198. invarg.r0 3; assume error 
a 
j 


ge cmpb d p ; are there at least 2 arguments? 

E bgtru bs 3; branch if not 

51 04 AC movl 4(ap),ri 3 get address of quadword time 

F bneq 20$ 3; branch if specified 
51 E movaq -(sp),ri 3; area to receive time in, ri addr of area 
Sgettim_s (r15 : get current time 
blbc r0,100 : branch if error 
20$: movg time 


(rl),¢r 3 get the 
ediv  #60*101000*1000;r0,r0.r1 ; get the time in minutes 

rl : time in minutes from 1858 is only 32 bits 
ediv #24%60,r0,r0,r1 ; time in days ate r0 
addl foftset,rO 3; account for_Nov 17, 1858 being a Wednesday 
r 3 aga n only 32 bits 
ediv oy 670-00 ri ; rO number of weeks, rl day of week 
addl3s #1, rl1,a tap) ; store the day number 
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LIBSDAY_OF WEEK ind numeric day of week 15-SEP-1984 23:55:35 VAX/VMS Macro V04-00 Page 5 4] 
v03-002 i1espay OF WEEK 6-SEP-1984 11:05:15 CLIBRTL.SRCILIBDAYWK.MAR; 1 (4) 
50 36«(01 9 , 19 movl #1,°0 ; set success 
rt Fe 100$: ret 3; exit, clean stack if needed 
D 141 .end 
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LIBSDAY_OF WEEK ; Find numeric day of week 50s P=] AX/VMS 4-00 P 
Symbol table “99 ref spacicaaa aaSeem ibs FFi8:ts HATENMS Bacto Oe 00 ans Page (8, 1: 
LIBSDAY_OF WEEK 00000000 RG 1 
LIBS_INVJAR a etereere x 8 
OF FSE = 00 
SYSSGETTIA etereree G 

$e eee eonreoreaene eah 

! ; Psect Synopsis : 
PSECT name Allocation PSECT No. Attributes 

ABS 90900000 ( 9-3 89 f NOPIC USR CON ABS LCL — NOEXE NORD NOWRT NOVEC BYTE 
“LIBSCODE ( 7 PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
weececeooesosooecooscooce + 
! Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 31 0:00:00. 0:00: 86 
Command processing 113 0:00: 3 :00:03.81 
Syncol table sort % 0; : :0 6; 8; 3:08 
a peepee «98:00:00:99 G0: 08:01 8 
Peect synopsis output 00: 0; 0:02  09:00:00-02 
Cross-reference output 0:00:0 9 00:00:00.0 
Assembler run totals 289 00:00:00.9 00:00:12.59 


The working set Limit was 900 pages. 

1906 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 2 local symbols. 
141 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

2 pages of virtual memory were used to define 2 macros. 
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Macro Library name Macros defined 
“S$255SDUA28:(SYSLIBJSTARLET.MLB;20 (i (‘(‘t~;~*™” : 
12 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 
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